home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / entropia.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  561 b   |  23 lines
  1. on exitFrame
  2.   global h1, h2, h3
  3.   set hot to 16
  4.   if the mouseCast = 58 then
  5.     go("naveg")
  6.   end if
  7.   if (the visible of sprite 12 = 0) and (the visible of sprite 13 = 0) then
  8.     repeat while hot < 19
  9.       if rollOver(hot) then
  10.         if the visible of sprite (hot - 13) = 0 then
  11.           sound playFile 2, "..\som\slosino.wav"
  12.           set the visible of sprite (hot - 13) to 1
  13.         end if
  14.       else
  15.         set the visible of sprite (hot - 13) to 0
  16.       end if
  17.       set hot to hot + 1
  18.     end repeat
  19.   end if
  20.   updateStage()
  21.   go(the frame)
  22. end
  23.